Programming Languages Suite/ProgramD2.iso/Visual Database/Visual dBase v5.5/MUSIC1.PAK/CONFIGS.WFM

Text File | 1995-07-18 | 6.0 KB | 209 lines

*******************************************************************************
*  PROGRAM:      Configs.wfm
*
*  WRITTEN BY:   Borland Samples Group
*
*  DATE:         1/94
*
*  UPDATED:      5/95
*
*  REVISION:     $Revision:   1.32  $
*
*  VERSION:      Visual dBASE
*
*  DESCRIPTION:  This is a form showing all the available media on which items
*                sold in the Musical Methods record store are recorded.  You
*                may view only a list of the available media, or you may choose
*                to view all the available items on that media.
*
*  PARAMETERS:   None
*
*  CALLS:        Configs.qbe   (view of tables)
*                Music.cc      (for custom pushbuttons)
*                View.mnu      (menu file)
*                View.pop      (popup file)
*                Music.prg     (procedure file)
*
*  USAGE:        DO Configs.wfm
*
*******************************************************************************
#include "Music.h"

create session
set talk off
set ldcheck off

** END HEADER -- do not remove this line*
* Generated on 06/19/94
*
parameter bModal
local f
f = new CONFIGSFORM()
if (bModal)
   f.mdi = .F. && ensure not MDI
   f.ReadModal()
else
   f.Open()
endif
CLASS CONFIGSFORM OF FORM
   Set Procedure to Music.cc additive
   this.ReleaseOnClose = .F.
   this.Minimize = .F.
   this.MousePointer =          1
   this.Maximize = .F.
   this.HelpFile = "Music.hlp"
   this.HelpId = "Media Types"
   this.Text = "Media Types"
   this.OnOpen = CLASS::ONOPEN
   this.OnClose = CLASS::ONCLOSE
   this.Width =         44.37
   this.View = "CONFIGS.QBE"
   this.Top =          3.69
   this.MenuFile = "VIEW.MNU"
   this.Left =         30.77
   this.Height =         14.26
   this.ColorNormal = "W"

   DEFINE RECTANGLE LISTRECT OF THIS;
       PROPERTY;
         Border .T.,;
         BorderStyle          1,;
         Text "",;
         ColorNormal "W+/R",;
         Width         41.82,;
         Top          0.50,;
         Left          1.19,;
         Height          9.15

   DEFINE TEXT MEDIATYPESTEXT OF THIS;
       PROPERTY;
         Border .F.,;
         Text "Media Types:",;
         ColorNormal "W/R",;
         Width         16.83,;
         Top          0.72,;
         Left          1.87,;
         Height          1.01

   DEFINE MUSICBUTTON ITEMSBUTTON OF THIS;
       PROPERTY;
         UpBitmap "RESOURCE #108",;
         HelpFile "Music.hlp",;
         HelpID "Items",;
         Text "&Items...",;
         ColorNormal "N/W",;
         StatusMessage "Show available items matching the current selection.  Press F1 for Help.",;
         Width         14.11,;
         Default .T.,;
         Top         12.18,;
         Left         13.60,;
         Height          1.50

   DEFINE CLOSEMBUTTON CLOSEFORMBUTTON OF THIS;
       PROPERTY;
         Width         14.11,;
         Top         12.18,;
         Left         28.90,;
         Height          1.50

   DEFINE IMAGE LOGOIMAGE OF THIS;
       PROPERTY;
         DataSource "FILENAME SMLMUSIC.BMP",;
         Width         10.71,;
         Top          9.92,;
         Left          1.19,;
         Height          4.04,;
         Alignment          2

   DEFINE LISTBOX DESCRIPTLIST OF THIS;
       PROPERTY;
         Visible .F.,;
         ColorHighLight "W+/R",;
         ColorNormal "N/W+",;
         Width         40.29,;
         Top          1.67,;
         Left          2.04,;
         ID        800,;
         Height          7.54

   ****************************************************************************
   PROCEDURE OnOpen
   ****************************************************************************

   if _app.framewin.text = "Musical Methods"  && If called from Music.prg
      EnableViews(this)                       && enable viewing other items.
      trackWindows.AddWindow(form)            && Keep track of open windows

   else                                       && otherwise
      set procedure to Music.prg additive     && Make Music.prg procedure file
   endif

   *** Define corresponding items (initially not visible)
   DefineCorrespondingItems(form)

   *** View Window Settings
   this.OnSize = SizeForm                     && Procedure in music.prg

   *** Assign the SpeedMenu for this form
   set procedure to View.pop additive
   this.popupMenu = new ViewPopup(this, "ViewPopup")

   *** Menu Settings
   this.root.view.organization.enabled = .F.
   this.root.view.organization.rank.enabled = .F.
   this.root.view.organization.artist.enabled = .F.
   this.root.view.organization.title.enabled = .F.
   this.root.view.browse.enabled = .F.
   this.popupMenu.organization.enabled = .F.
   this.popupMenu.organization.rank.enabled = .F.
   this.popupMenu.organization.artist.enabled = .F.
   this.popupMenu.organization.title.enabled = .F.
   this.popupMenu.browse.enabled = .F.
   this.root.AssignWindowMenu()


   * Link listbox to the unSKIPped list of parent records
   this.descriptList.dataSource = "FIELD CONFIGS->DESCRIPT"
   this.descriptList.visible = .T.            && Make it visible here so don't
                                              && See flickering in form

   set skip to                                && Parent records shown only once
   this.filter = ""                           && No filter is set yet


   this.musicIsOpen = .F.                     && Corresponding items not visible
                                              && yet

   this.itemsButton.OnClick = CorrespondingItems  && procedure in Music.prg



   ****************************************************************************
   PROCEDURE OnClose
   ****************************************************************************

   if _app.framewin.text = MUSIC_APP_TITLE
      trackWindows.DeleteWindow(form)
   else
      close procedure Music.prg
   endif
   close procedure Music.cc, View.pop



ENDCLASS